
Public Class SampleMultipleInterface
    Inherits System.Web.UI.WebControls.WebParts.WebPart
    Implements IBookInfo
    Implements IAuthorInfo

    Dim ibk As IBookInfo
    Dim iauth As IAuthorInfo

    <System.Web.UI.WebControls.WebParts.ConnectionConsumer("IBookInfo Consumer", "BookInfo")> _
    Public Sub SetBookInfo(ByVal bk As IBookInfo)
        ibk = bk
    End Sub

    <System.Web.UI.WebControls.WebParts.ConnectionConsumer("IWebPartField Consumer", "Field")> _
    Public Sub SetAuthorInfo(ByVal auth As IAuthorInfo)
        iauth = auth
    End Sub

    Public Property ISBN() As String Implements IBookInfo.ISBN
        Get
            Return "076457860X"
        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Function SortData(ByVal Direction As String) As Boolean Implements IBookInfo.SortData

    End Function

    Public Sub UpdateCache(ByVal CacheFlag As Boolean) Implements IBookInfo.UpdateCache

    End Sub

    Public Property ISBN1() As Integer Implements IAuthorInfo.ISBN
        Get

        End Get
        Set(ByVal value As Integer)

        End Set
    End Property
End Class
